home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / I-RODS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.6 KB  |  52 lines
  1. 10  '*********************************************************************
  2. 20  '**                      IMAGINARY RODS                             **
  3. 30  '**                                                                 **
  4. 40  '**  VERSION 1.1                        28 JULY 1982                **
  5. 50  '*********************************************************************
  6. 60  SCREEN 2 : KEY OFF : CLS
  7. 70  GOSUB 150             ' DRAW THE RODS EXCEPT FOR THE ENDS
  8. 80  N = 1 : GOSUB 280
  9. 90  LOCATE 24,1 : PRINT " LET THE  I.B.M. P.C. TURN THE ORDINARY - ";
  10. 95  LINE (38,192)-(168,192)
  11. 100  FOR X = 1 TO 3000 : NEXT
  12. 110  N = 0 : GOSUB 280
  13. 115  FOR X = 1 TO 3000 : NEXT
  14. 120  LOCATE 24,43 : PRINT "INTO THE EXTRA-ORDINARY       ";
  15. 130  GOSUB 400
  16. 140  LOCATE 1,1 : END
  17. 150  '******************************************** DRAW THE RODS
  18. 160  LINE (600,100)-(300,0)
  19. 170  LINE (300,0)-(100,48)
  20. 180  LINE (100,48)-(400,148)
  21. 190  LINE (100,48)-(100,77)
  22. 200  LINE (100,77)-(350,160)
  23. 210  LINE (550,112)-(300,29)
  24. 220  LINE (450,136)-(200,53)
  25. 230  LINE (300,28)-(200,53)
  26. 240  LINE (500,124)-(300,57)
  27. 250  LINE (300,57)-(300,28)
  28. 260  LINE (300,57)-(250,69)
  29. 270  RETURN
  30. 280  '******************************************** DRAW OR ERASE THE ENDS
  31. 290  LINE (600,100)-(550,112),N
  32. 300  LINE -(550,140),N
  33. 310  LINE -(600,128),N
  34. 320  LINE -(600,100),N
  35. 330  LINE (550,140)-(500,124),N
  36. 340  LINE (450,136)-(400,148),N
  37. 350  LINE -(400,176),N
  38. 360  LINE -(450,164),N
  39. 370  LINE -(450,136),N
  40. 380  LINE (400,176)-(350,160),N
  41. 390  RETURN
  42. 400  '******************************************** DRAW CIRCLES ON RODS
  43. 410  A = 375 : B = 154 : GOSUB 450
  44. 420  A = 475 : B = 130 : GOSUB 450
  45. 430  A = 575 : B = 106 : GOSUB 450
  46. 440  RETURN
  47. 450  FOR X = -28 TO 28
  48. 460  Y = SQR( 784 - (X*X) ) /2.4
  49. 470  PSET (A+X,B+Y) : PSET (A+X,B-Y)
  50. 480  NEXT
  51. 490  RETURN
  52.